getAssertFailEvtLong (get event of last failed assertion, long message text)

Syntax:

assertFailEvt = getAssertFailEvtLong();

Description:

Returns a data structure with information about the last failed assertion. This procedure return a message text up to 1024 characters and replaces the getAssertFailEvt() procedure.

Funktionswert:

  // Assertion Failure Event.
D AssertFailEvtLong_t...
D                 ds                  Qualified Based(template)
D  msg                                Like(msgText_t)
D  callStkEnt                         LikeDs(CallStkEnt_t)
D                                     Dim(MAX_CALL_STK_SIZE)

D MAX_CALL_STK_SIZE...
D                 c                   Const(64)

  // // Message replacement data or message text.
D msgText_t       s           1024a   varying based(template) 

  // Call Stack Entry.
D CallStkEnt_t    ds                  Qualified Based(template)
D  pgmNm                        10a
D  modNm                        10a
D  procNm                      256a
D  specNb                       10a

Example:

assertFailEvt = getAssertFailEvt();

assert( excpWasSeen :
        'aEqual( Hello : Good bye )'
      + ' should have raised an error message.' );

aEqual( 'Expected ''Hello'', but was ''Good bye''.' :
        assertFailEvt.msg );